(defun sublists	(x / sl)
  (cond	((null x) '(()))
	(t
	 (progn
	   (setq sl (sublists (cdr x)))
	   (append sl (mapcar '(lambda (l) (cons (car x) l)) sl))
	 )
	)
  )
)